let _ =
	GtkMain.Main.main_func := GtkThread.thread_main;
	ignore (GMain.Main.init ())
